home *** CD-ROM | disk | FTP | other *** search
/ Power Programmierung 2 / Power-Programmierung CD 2 (Tewi)(1994).iso / c / library / mslang / cp1 / nopause2.as! < prev    next >
Encoding:
Text File  |  1993-03-31  |  1.8 KB  |  58 lines
  1. ===========================================================================
  2.  BBS: The Abacus * HST/DS * Potterville MI
  3. Date: 03-29-93 (17:53)             Number: 42
  4. From: GEOFFREY LIU                 Refer#: NONE
  5.   To: JOEL YEN                      Recvd: NO  
  6. Subj: DISABLE THE PAUSE KEY (#2      Conf: (35) Quick Basi
  7. ---------------------------------------------------------------------------
  8. (Continued from the previous message)
  9.  
  10. InstallExit:
  11.         ret
  12.  
  13. OurInt1C:                         ;Our Int 1Ch handler
  14.         push ds                   ;
  15.         push bx
  16.         push ax
  17.         xor bx, bx                ;point DS to BIOS data area
  18.         mov ds, bx                ;
  19.         mov bx, 0418h
  20.         mov al, [bx]
  21.         and al, 0F7h              ;reset nopause flag
  22.         mov [bx], al
  23.         pop ax
  24.         pop bx
  25.         pop ds
  26.         jmp dword ptr cs:[Old1C]  ;Transfer to orig Int 1Ch
  27.  
  28. NoPause endp
  29.  
  30. UnhookNoPause proc                ; from BASIC: CALL UnHookNoPause
  31.         cmp cs:Hooked,0           ; are we installed?
  32.         jz UnHooked               ; nope - exit
  33.  
  34.         push ax
  35.         push ds
  36.         mov ax,251Ch              ;Unhook ourself
  37.         mov ds,Old1CSegment
  38.         mov dx,Old1COffset
  39.         int 21h                   ;Point Int 1Ch back to original
  40.         pop ds
  41.         pop ax
  42.         mov cs:Hooked,0           ;Set installed flag back to zero
  43.  
  44. UnHooked:
  45.         ret
  46. UnhookNoPause endp
  47.  
  48. END
  49.  
  50.                    :) Geoff.
  51. ---
  52.  * DeLuxe* 1.26b #11507 * Old MacDonald had a computer, with EIA I/O...
  53. --- FidoPCB v1.4 beta
  54.  * Origin: Canada Remote Systems, Mississauga, Ontario  (1:229/15)
  55. SEEN-BY: 1/211 11/2 4 13/13 101/1 108/89 109/25 110/69 114/5 123/19 124/1
  56. SEEN-BY: 153/752 154/40 77 157/2 159/100 125 430 950 203/23 209/209 280/1
  57. SEEN-BY: 390/1 396/1 15 397/2 2230/100 3603/20
  58.